home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 20 / Grapevine 20 (Disk 1 of 2).adf / Files / arexxexamps.lha / ARTICLES / AREXX_EXAMPLES / Example18.rexx < prev    next >
OS/2 REXX Batch file  |  1980-01-07  |  670b  |  24 lines
  1. /* Example 18 */
  2.  
  3. Say PrintLine("*", 20, 10)  /*  PrintLine( CharString, NoOfChars, NoLines ) */
  4. Exit
  5.  
  6.  
  7. PrintLine:              /* This Is A Function */
  8.  
  9.           CR = "0A"x    /* Carriage Return */
  10.  
  11.           character = arg(1)  /* Get Character To Print */
  12.           number    = arg(2)  /* Get Number Of Chars */
  13.           nolines   = arg(3)  /* Get Number Of Lines */
  14.           line      = ""      /* Initialise Line */
  15.           Do number
  16.              line = line || Character   /* Make Line Of What Ever Char Is */
  17.           End
  18.  
  19.           box = ""            /* Initialise box */
  20.           Do nolines
  21.              box = box || line || CR
  22.           End
  23.  
  24. Return box